home *** CD-ROM | disk | FTP | other *** search
/ Turnbull China Bikeride / Turnbull China Bikeride - Disc 2.iso / BARNET / COMPILER / LCCSRC / !lcc / src / tst / cf.0 next >
Text File  |  1990-09-06  |  521b  |  33 lines
  1. /* cf - print character frequencies */
  2. float f[128];
  3.  
  4. main(argc, argv)
  5. int argc;
  6. char *argv[];
  7. {
  8.     int i, c, nc;
  9.     float cutoff, atof();
  10.  
  11.     if (argc <= 1)
  12.         cutoff = 0.0;
  13.     else
  14.         cutoff = atof(argv[1])/100;
  15.     for (i = 0; i <= 127; )
  16.         f[i++] = 0.0;
  17.     nc = 0;
  18.     while ((c = getchar()) != -1) {
  19.         f[c] += 1;
  20.         nc++;
  21.     }
  22.     printf("char\tfreq\n");
  23.     for (i = 0; i <= 127; ++i)
  24.         if (f[i] && f[i]/nc >= cutoff) {
  25.             if (i <= ' ')
  26.                 printf("%03o", i);
  27.             else
  28.                 printf("%c", i);
  29.             printf("\t%.1f\n", 100*f[i]/nc);
  30.         }
  31.     return 0;
  32. }
  33.